home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / disk.uti (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  36 lines
  1. 1 REM*****************************
  2. 2 REM****    DISK UTILITY     ****
  3. 3 REM****         BY          ****
  4. 4 REM****  STEVE MOERSCHELL   ****
  5. 5 REM*****************************
  6. 10 RT$=CHR$(13):DV=8
  7. 15 PRINT"[147]INPUT DRIVE# (DEFAULT=8)";
  8. 20 INPUTDV:IFDV<8ORDV>11THENDV=8:GOTO20
  9. 30 CLOSE15:OPEN15,DV,15
  10. 40 PRINTN$"[147]DRIVE#="DV;RT$" 1 DIRECTORY"RT$" 2 SCRATCH FILE"RT$" 3 RENAM FILE"
  11. 50 PRINT" 4 VALIDATTE"RT$" 5 FORMAT DISKETTE"RT$"(RETURN TO EXIT)"RT$M1$;
  12. 60 GOSUB320:PRINTZ$:Z=VAL(Z$):ONZGOTO70,170,190,180,210:CLOSE15:GOTO250
  13. 70 CLOSE3:OPEN3,DV,0,"$":GOSUB300:IFX<>0THEN120
  14. 80 FORI=1TO8:GET#3,Z$:NEXT:GOSUB130:PRINT"[147]"SS$N$
  15. 90 GET#3,X$,Y$:X=ASC(X$+CHR$(0)):Y=ASC(Y$+CHR$(0)):IFX=0ANDY=0THEN120
  16. 100 GET#3,X$,Y$:X=ASC(X$+CHR$(0))+256*ASC(Y$+CHR$(0)):PRINTX;:GOSUB130
  17. 110 PRINTSS$:GETZ$:IFZ$=""THEN90
  18. 120 CLOSE3:PRINT"HIT ANY KEY":GOSUB320:GOTO40
  19. 130 SS$=""
  20. 140 GET#3,Z$:IFZ$=""THENRETURN
  21. 150 IFZ$=CHR$(34)THEN140
  22. 160 SS$=SS$+Z$:GOTO140
  23. 170 PRINTM$"SCRATCH FILE:"I$:INPUTZ$:PRINT#15,"S:"+Z$:GOSUB300:GOTO40
  24. 180 PRINTN$"WORKING...":PRINT#15,"V":GOSUB300:GOTO40
  25. 190 PRINTM$"OLD NAME:"I$:INPUTZ$:PRINTM$"NEW NAME:"I$:INPUTX$
  26. 200 PRINT#15,"R:"+X$+"="+Z$:GOSUB300:GOTO40
  27. 210 PRINTM$"ERASE ALL,Y/N"I$;:GOSUB320:PRINTZ$:IFZ$<>"Y"THEN40
  28. 220 PRINTM$"DISK NAME (16 CHAR)"I$:INPUTZ$:Z$=LEFT$(Z$,16)
  29. 230 PRINTM$"DISK ID (2 UNIQUE CHAR)"I$:INPUTX$:X$=LEFT$(X$,2)
  30. 240 PRINT#15,"N:"+Z$+","+X$:GOSUB300:GOTO40
  31. 250 END
  32. 300 INPUT#15,X,Z$:IFX<>0THENPRINTX;Z$MA$:GOSUB320
  33. 310 RETURN
  34. 320 GETZ$:IFZ$=""THEN320
  35. 330 RETURN
  36.